home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / WRITEHEX.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-14  |  436b  |  21 lines

  1. {<<<< Writehex >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 23.5   --   Last mod 12/5/87  }
  5.  
  6.  
  7.  
  8. PROCEDURE WriteHex(VAR Device : Text; BT : Byte);
  9.  
  10. CONST
  11.   HexDigits : ARRAY[0..15] OF Char = '0123456789ABCDEF';
  12.  
  13. VAR
  14.   BZ : Byte;
  15.  
  16. BEGIN
  17.   BZ := BT AND $0F;
  18.   BT := BT SHR 4;
  19.   Write(Device,HexDigits[BT],HexDigits[BZ])
  20. END;
  21.